home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zh.d64 / proc.nofont < prev    next >
Text File  |  2007-03-01  |  334b  |  17 lines
  1. 0010 // ─┼╠┼╘┼ "PRC.NOFONT"
  2. 0020 // ╠╔╙╘   "PRC.NOFONT"
  3. 0030 
  4. 0040 // BY ─ICK ╦LINGENS
  5. 0050 // ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  6. 0060 //
  7. 0070 PROC NOFONT CLOSED
  8. 0080   REG:=$C2BB
  9. 0090   MASK:=%10000000 BITXOR 255
  10. 0100   ROM(REG)
  11. 0110   //
  12. 0120   PROC ROM(X) 
  13. 0130     POKE X,PEEK(X) BITAND MASK
  14. 0140   ENDPROC ROM
  15. 0150   //
  16. 0160 ENDPROC NOFONT
  17.